﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
dim urls,pid,rs,sql,i
        urls=Request.QueryString("urls")
        if urls="" then urls="index.asp"
		if sid<>"Null" then
                pid=Request.QueryString("pid")
	        if pid="" then pid=0
	        if not isnumeric(pid) then pid=0
	        pid=clng(pid)

select case v
case "0"
we0="<br/>"
hr="------------<br/>"
%>
<card title="页面聊天"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>页面聊天</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select

%>
<%=qingtian.qingsav("853")%>
<%if v=1 then %>
<form action="liuyyy.Asp?pid=<%=pid%>&amp;urls=<%=urls%>&amp;sid=<%=sidd%>" method="post"><div class="footer">
<textarea name="content" rows="2"/></textarea><br/>
<%else%>
<input emptyok="true"  type="text" name="content" value="" size="15"/><br/>
<%end if%>
<select name='nid' value='0'>
<%
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select nid from qingtian_yyy where pid="&pid&" group by nid"
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof) then
         	For i=1 to rs.RecordCount
		If Rs.Eof Then
			exit For
		End If
%>
<option value='<%=rs("nid")%>'>对<%=qingtian.utf8(qingtian.name(rs("nid")))%>说</option>
<%
	 	Rs.MoveNext
	  	Next
		end if
		Rs.close
	set rs=nothing
%>
<option value='0'>对大家说</option>
</select><%=we0%>
<select title='表情' name='face' value='0'><option title='表情' value='0'>表情</option><option title='微笑' value='1'>微笑</option><option title='哭泣' value='2'>哭泣</option><option title='调皮' value='3'>调皮</option><option title='脸红' value='4'>脸红</option><option title='害羞' value='5'>害羞</option><option title='生气' value='6'>生气</option><option title='偷笑' value='7'>偷笑</option><option title='流汗' value='8'>流汗</option><option title='我倒' value='9'>我倒</option><option title='得意' value='10'>得意</option><option title='奸笑' value='11'>奸笑</option><option title='疑问' value='12'>疑问</option><option title='睡觉' value='13'>睡觉</option><option title='好色' value='14'>好色</option><option title='口水' value='15'>口水</option><option title='敲头' value='16'>敲头</option><option title='惊讶' value='17'>惊讶</option><option title='撇嘴' value='18'>撇嘴</option><option title='难过' value='19'>难过</option><option title='玫瑰' value='20'>玫瑰</option></select>
<%if v=1 then %>
<input type="submit" value="发言"/>
</form><br/>
<%else%>
	<anchor>发言
    	<go href="liuyyy.Asp?pid=<%=pid%>&amp;urls=<%=urls%>&amp;sid=<%=sidd%>" method='post'>
        <postfield name="content" value="$(content)"/>
        <postfield name="face" value="$(face)"/>
        <postfield name="nid" value="$(nid)"/>
    	</go>
	</anchor><br/>
<%end if%>
<%=qingtian.qingsav("854")%>
<%=hr%>
<%=sou%><a href="liuyyy.Asp?pid=<%=pid%>&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">返回上级</a><%=we0%>
                  
<%
else
Response.Redirect "/login.asp?sid=" & sidd & "&url="&urls
end if

end Function
%>
